home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 December / CHIP Aralık 1996.iso / prog / backpack / demodata / misc / start.dxr / 00110_ButtonH.ls < prev    next >
Encoding:
Text File  |  1995-08-30  |  222 b   |  11 lines
  1. on ButtonH
  2.   set K to the clickOn
  3.   puppetSprite(K, 1)
  4.   set the castNum of sprite K to the castNum of sprite K + 1
  5.   puppetSound("Klick")
  6.   updateStage()
  7.   repeat while the stillDown
  8.   end repeat
  9.   puppetSprite(K, 0)
  10. end
  11.